﻿Imports Microsoft.VisualStudio.TestTools.UnitTesting
Imports Microsoft.VisualBasic
Imports cerveza



'''<summary>
'''This is a test class for CategoriaDAOTest and is intended
'''to contain all CategoriaDAOTest Unit Tests
'''</summary>
<TestClass()> _
Public Class RservaNegocioTest

    '''<summary>
    '''A test for Listar
    '''</summary>
    <TestMethod()> _
    Public Sub insertarTest()
        Dim negocio As New ReservaNegocio()

        Try
            Dim modelo = negocio.insertar(2, "30 / 10 / 13", "cash", 400)

            Console.Write(modelo.idReserva)

        Catch ex As DAOExcepcion
            Assert.Fail(ex.ToString())
        End Try

    End Sub
End Class
